#!/usr/bin/perl
$a = `grep Predicted errors | wc -l`;
$b = `grep Successful errors | wc -l`;
$c = `grep Failure errors | wc -l`;
$d = `grep UnReachable errors | wc -l`;
chomp($a,$b,$c,$d);
print "$a $b $c $d\n";
